Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/FAM.DIR/00054_Script_MOVIE SCRIPT

Text File | 1994-10-18 | 702b | 39 lines

on startMovie
  cursor 200
end

on waitQT chan
  if the movieRate of sprite chan = 1 then go the frame
end

on waitsnd chan
  if soundBusy(chan)=1 then go the frame
end

on waiting theTicks
  --must be preceded by startTimer
  if theTicks >= the timer then go the frame
end

on goMovie chan
  set the movieRate of sprite chan to 1
end

on KeyDown
  -- for movies with custom palettes
  global autoplaying
  put 0 into autoplaying
  unloadcast
  if  the castNum of sprite 1 > 0 then
    put the castNum of sprite 1 into palCast
    put the palette of cast palCast into yrPal
    puppetPalette yrPal
  end if
  go to frame "end"
end

on enterframe
  cursor 200
end